home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 9 / FM Towns Free Software Collection 9.iso / t_os / demo / ugo / ugo.bas < prev    next >
Encoding:
BASIC Source File  |  1994-11-16  |  431 b   |  17 lines
  1. 10 '
  2. 20 CLEAR ,,,1600000,1024:DEFLNG A-Z
  3. 30 DIM HIKAKU%(320*240)
  4. 40 UGO&=0:LOADM "UGO.REX",UGO&
  5. 50 '
  6. 60 SCREEN 1,0,3,0:SCREEN@1:LOAD@ "UGO.TIF"
  7. 70 SCREEN 1,1,3,0:SCREEN@1:SIMPOSE 3
  8. 80 '
  9. 90 WAIT 50:GET@A(0,0)-(319,239),HIKAKU%
  10. 100 'loop
  11. 110   CALLM UGO&,VARPTR(HIKAKU%(0))
  12. 120   I$=INKEY$
  13. 130 IF I$="" THEN GOTO 100'loop
  14. 140 IF I$=" " THEN GET@A(0,0)-(319,239),HIKAKU%
  15. 150 IF I$<>CHR$(27) THEN GOTO 100'loop
  16. 160 END
  17.